home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Life 1997 February
/
Computer Life February 1997.iso
/
TELME
/
COMMS
/
ISDN1000.SRP
< prev
next >
Wrap
Text File
|
1996-06-04
|
3KB
|
170 lines
rem Copyright (c) PhoneLink plc
rem PSL - ISDN (23/8/95)
rem Updated 11 october 1995
rem Added &w at end of init string.
rem updated 13th December 1995 - DTR toggle
label InitDevice
echo off
flush
echo script[59]
send "ate0&k2s39=4s112=0&d2char(13)"
timeout 5,modem_offline
find "OK"
send "atochar(13)"
timeout 5,pad_fail
find "*"
send "set 1:1,2:0,3:0,4:20,5:1,6:5,12:1,15:0char(13)"
timeout 5,pad_set_fail
find "*"
send "char(16)"
timeout 5,data_mode_fail
find "OK"
send "at&wchar(13)"
timeout 5,data_mode_fail
find "OK"
label OffToGate
rem ISDN Offline to Gate (also contains Pad to Gate)
echo off
flush
echo script[52].
send "atdt{PreTel}{SiteTel}{PostFix}char(13)"
timeout 10,connect_fail
finderr 0,BUSY,busy
finderr 103,NO DIALTONE,connect_fail
finderr 0,NO CARRIER,no_carrier
find "*"
label PadToGate
echo script[53]
echo off
send "{NUA}char(13)"
timeout 3,nua_fail
finderr 0,CLR DTE,dte_cleared
finderr 0,CLR DER,der_cleared
finderr 0,RESET,reset
finderr 0,CLR OCC,occ_cleared
finderr 0,COM,nua_good
find "ZZZ"
label nua_good
echo script[54].
end
label GateToPad
echo off
echo script[92]
send "char(16)"
timeout 5,ctrl_p_fail
find "*"
send "CLRchar(13)"
timeout 5,clear_fail
find "CLR CONF"
echo script[91]..
end
label GateToOff
rem Gate to Offline (also contains Pad to Offline)
echo off
echo script[92]
send "char(16)"
timeout 5,ctrl_p_fail
find "*"
send "CLRchar(13)"
timeout 10,clear_fail
find "CLR CONF"
label PadToOff
echo off
echo script[92]
send "char(16)"
timeout 5,command_mode_fail
find "OK"
send "athchar(13)"
timeout 5,hang_up_fail
find "OK"
echo script[99].
end
label modem_offline
rem This is the doomsday scenario. Use DTR toggle to drop call
dtrlow
mwait 500
dtrhigh
abort
label pad_fail
echo script[4]
goto modem_offline
abort
label pad_set_fail
echo script[5]
goto modem_offline
abort
label data_mode_fail
echo script[16]
goto modem_offline
abort
label connect_fail
echo script[1]
goto modem_offline
abort
label busy
echo script[2]
goto modem_offline
abort
label no_carrier
echo script[3]
goto modem_offline
abort
label nua_fail
echo script[22]
goto modem_offline
abort
label dte_cleared
echo script[6]
goto modem_offline
abort
label der_cleared
echo script[7]
goto modem_offline
abort
label reset
echo script[8]
goto modem_offline
abort
label occ_cleared
echo script[9]
goto modem_offline
abort
label ctrl_p_fail
echo script[12]
goto modem_offline
abort
label clear_fail
echo script[13]
goto modem_offline
abort
label command_mode_fail
echo script[15]
goto modem_offline
abort
label hang_up_fail
echo script[17]
goto modem_offline
abort